home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok08.lha / CreateAmokDisk1.1 / AmokIcons / AmokSource.mod < prev    next >
Text File  |  1993-08-15  |  4KB  |  143 lines
  1.  
  2.           (* -------> IMPLEMENTATION MODULE <-------- *)
  3.  
  4. IMPLEMENTATION MODULE AmokSource;
  5.  
  6. FROM SYSTEM IMPORT      WORD;
  7.  
  8. FROM Heap IMPORT        AllocMem;
  9.  
  10. VAR     i   :INTEGER;
  11.  
  12.  
  13.  
  14. BEGIN   (* MAIN *)
  15.  
  16. FOR i:=0 TO   1  DO
  17.   AllocMem(ImgPtr[i],SIZE(ImgPtr[i]^),TRUE);
  18. END;
  19.  
  20. Imgwidth := 31;
  21. Imgheight:= 25;
  22. Imgdepth :=  2;
  23.  
  24.  
  25.  
  26. WITH ImgPtr[Source]^ DO         (* Source *)
  27.  
  28.   (* Plane 1 *)
  29.  Dat[  0]:=0AAAAH; Dat[  1]:=0A800H;
  30.  Dat[  2]:=0AAAAH; Dat[  3]:=0A800H;
  31.  Dat[  4]:=0AAAAH; Dat[  5]:=0A880H;
  32.  Dat[  6]:=080A0H; Dat[  7]:=008A0H;
  33.  Dat[  8]:=0AAAAH; Dat[  9]:=0A8A8H;
  34.  Dat[ 10]:=0822AH; Dat[ 11]:=0A800H;
  35.  Dat[ 12]:=0AA0AH; Dat[ 13]:=0AAAAH;
  36.  Dat[ 14]:=0AA02H; Dat[ 15]:=0AAAAH;
  37.  Dat[ 16]:=0AA38H; Dat[ 17]:=0AAAAH;
  38.  Dat[ 18]:=0AA78H; Dat[ 19]:=02AAAH;
  39.  Dat[ 20]:=0AA1AH; Dat[ 21]:=02AAAH;
  40.  Dat[ 22]:=0AA22H; Dat[ 23]:=08AAAH;
  41.  Dat[ 24]:=0AA28H; Dat[ 25]:=08AAAH;
  42.  Dat[ 26]:=0AA88H; Dat[ 27]:=0A2AAH;
  43.  Dat[ 28]:=0AA8AH; Dat[ 29]:=022AAH;
  44.  Dat[ 30]:=0AAA2H; Dat[ 31]:=028AAH;
  45.  Dat[ 32]:=0AAA2H; Dat[ 33]:=088AAH;
  46.  Dat[ 34]:=0AAA8H; Dat[ 35]:=08A2AH;
  47.  Dat[ 36]:=0AAA8H; Dat[ 37]:=0A02AH;
  48.  Dat[ 38]:=0AAAAH; Dat[ 39]:=00F8AH;
  49.  Dat[ 40]:=0AAAAH; Dat[ 41]:=018CAH;
  50.  Dat[ 42]:=0AAAAH; Dat[ 43]:=08F8AH;
  51.  Dat[ 44]:=0AAAAH; Dat[ 45]:=0A02AH;
  52.  Dat[ 46]:=0AAAAH; Dat[ 47]:=0AAAAH;
  53.  Dat[ 48]:=00000H; Dat[ 49]:=00000H;
  54.  
  55.   (* Plane 2 *)
  56.  Dat[ 50]:=00000H; Dat[ 51]:=00000H;
  57.  Dat[ 52]:=00000H; Dat[ 53]:=00000H;
  58.  Dat[ 54]:=00000H; Dat[ 55]:=00000H;
  59.  Dat[ 56]:=07F1FH; Dat[ 57]:=0F000H;
  60.  Dat[ 58]:=00000H; Dat[ 59]:=00000H;
  61.  Dat[ 60]:=07DC0H; Dat[ 61]:=00000H;
  62.  Dat[ 62]:=001F0H; Dat[ 63]:=00000H;
  63.  Dat[ 64]:=001FCH; Dat[ 65]:=00000H;
  64.  Dat[ 66]:=001C6H; Dat[ 67]:=00000H;
  65.  Dat[ 68]:=00187H; Dat[ 69]:=08000H;
  66.  Dat[ 70]:=001E6H; Dat[ 71]:=0C000H;
  67.  Dat[ 72]:=001AEH; Dat[ 73]:=0E000H;
  68.  Dat[ 74]:=000EEH; Dat[ 75]:=0B000H;
  69.  Dat[ 76]:=0006BH; Dat[ 77]:=0B800H;
  70.  Dat[ 78]:=0003BH; Dat[ 79]:=0AC00H;
  71.  Dat[ 80]:=0001AH; Dat[ 81]:=0EE00H;
  72.  Dat[ 82]:=0000EH; Dat[ 83]:=0EB00H;
  73.  Dat[ 84]:=00006H; Dat[ 85]:=0BB80H;
  74.  Dat[ 86]:=00003H; Dat[ 87]:=0BFC0H;
  75.  Dat[ 88]:=00001H; Dat[ 89]:=0B060H;
  76.  Dat[ 90]:=00000H; Dat[ 91]:=0E730H;
  77.  Dat[ 92]:=00000H; Dat[ 93]:=07060H;
  78.  Dat[ 94]:=00000H; Dat[ 95]:=01FC0H;
  79.  Dat[ 96]:=00000H; Dat[ 97]:=00000H;
  80.  Dat[ 98]:=00000H; Dat[ 99]:=00000H;
  81.  
  82. END;
  83.  
  84.  
  85. WITH ImgPtr[SourceH]^ DO         (* SourceH *)
  86.  
  87.   (* Plane 1 *)
  88.  Dat[  0]:=00000H; Dat[  1]:=00000H;
  89.  Dat[  2]:=00000H; Dat[  3]:=00000H;
  90.  Dat[  4]:=00000H; Dat[  5]:=00000H;
  91.  Dat[  6]:=07F1FH; Dat[  7]:=0F000H;
  92.  Dat[  8]:=05515H; Dat[  9]:=05000H;
  93.  Dat[ 10]:=07DD5H; Dat[ 11]:=05000H;
  94.  Dat[ 12]:=001F5H; Dat[ 13]:=05000H;
  95.  Dat[ 14]:=001FDH; Dat[ 15]:=05000H;
  96.  Dat[ 16]:=001C7H; Dat[ 17]:=05000H;
  97.  Dat[ 18]:=00187H; Dat[ 19]:=0D000H;
  98.  Dat[ 20]:=001E5H; Dat[ 21]:=0D000H;
  99.  Dat[ 22]:=001DDH; Dat[ 23]:=07000H;
  100.  Dat[ 24]:=000D7H; Dat[ 25]:=07000H;
  101.  Dat[ 26]:=00077H; Dat[ 27]:=05800H;
  102.  Dat[ 28]:=00035H; Dat[ 29]:=0DC00H;
  103.  Dat[ 30]:=0001DH; Dat[ 31]:=0D600H;
  104.  Dat[ 32]:=0000DH; Dat[ 33]:=07700H;
  105.  Dat[ 34]:=00007H; Dat[ 35]:=07580H;
  106.  Dat[ 36]:=00003H; Dat[ 37]:=05FC0H;
  107.  Dat[ 38]:=00001H; Dat[ 39]:=0F060H;
  108.  Dat[ 40]:=00000H; Dat[ 41]:=0E730H;
  109.  Dat[ 42]:=00000H; Dat[ 43]:=07060H;
  110.  Dat[ 44]:=00000H; Dat[ 45]:=01FC0H;
  111.  Dat[ 46]:=00000H; Dat[ 47]:=00000H;
  112.  Dat[ 48]:=00000H; Dat[ 49]:=00000H;
  113.  
  114.   (* Plane 2 *)
  115.  Dat[ 50]:=0AAAAH; Dat[ 51]:=0A800H;
  116.  Dat[ 52]:=0AAAAH; Dat[ 53]:=0A800H;
  117.  Dat[ 54]:=0AAAAH; Dat[ 55]:=0A880H;
  118.  Dat[ 56]:=080A0H; Dat[ 57]:=008A0H;
  119.  Dat[ 58]:=0FFBFH; Dat[ 59]:=0F8A8H;
  120.  Dat[ 60]:=0823FH; Dat[ 61]:=0F800H;
  121.  Dat[ 62]:=0AA0FH; Dat[ 63]:=0FAAAH;
  122.  Dat[ 64]:=0AA03H; Dat[ 65]:=0FAAAH;
  123.  Dat[ 66]:=0AA39H; Dat[ 67]:=0FAAAH;
  124.  Dat[ 68]:=0AA78H; Dat[ 69]:=07AAAH;
  125.  Dat[ 70]:=0AA19H; Dat[ 71]:=03AAAH;
  126.  Dat[ 72]:=0AA51H; Dat[ 73]:=01AAAH;
  127.  Dat[ 74]:=0AA11H; Dat[ 75]:=04AAAH;
  128.  Dat[ 76]:=0AA94H; Dat[ 77]:=042AAH;
  129.  Dat[ 78]:=0AA84H; Dat[ 79]:=052AAH;
  130.  Dat[ 80]:=0AAA5H; Dat[ 81]:=010AAH;
  131.  Dat[ 82]:=0AAA1H; Dat[ 83]:=014AAH;
  132.  Dat[ 84]:=0AAA9H; Dat[ 85]:=0442AH;
  133.  Dat[ 86]:=0AAA8H; Dat[ 87]:=0402AH;
  134.  Dat[ 88]:=0AAAAH; Dat[ 89]:=04F8AH;
  135.  Dat[ 90]:=0AAAAH; Dat[ 91]:=018CAH;
  136.  Dat[ 92]:=0AAAAH; Dat[ 93]:=08F8AH;
  137.  Dat[ 94]:=0AAAAH; Dat[ 95]:=0A02AH;
  138.  Dat[ 96]:=0AAAAH; Dat[ 97]:=0AAAAH;
  139.  Dat[ 98]:=00000H; Dat[ 99]:=00000H;
  140.  
  141. END;
  142. END AmokSource.
  143.